Collin Erickson
7/13/2016
s <- sFFLHD.seq(D = 3, L = 5)
s$get.batch()
[,1] [,2] [,3]
[1,] 0.80704681 0.76735849 0.02498429
[2,] 0.07001103 0.54852614 0.76341669
[3,] 0.61340117 0.82163175 0.58389773
[4,] 0.37208543 0.32099826 0.25862690
[5,] 0.59966032 0.05542548 0.85744879
s <- sFFLHD.seq(D = 2, L = 5)
plot(NULL, xlim=0:1, ylim=0:1)
abline(h=(0:5)/5, v=(0:5)/5)
for(i in 1:5) points(s$get.batch(), col=i, pch=19)
s <- sFFLHD.seq(D = 2, L = 3)
l <- 9
plot(NULL, xlim=0:1, ylim=0:1)
abline(h=(0:l)/l, v=(0:l)/l)
for(i in 1:27) points(s$get.batch(), col=i, pch=19)
[1] "Going one deeper"
Actual function: Gaussian
contourfilled.func(gaussian1)
[1] "Going one deeper"
Actual function: Sinusoid with a plateau
contourfilled.func(sinumoid)
[1] "Going one deeper"